﻿Public Class People
    Private bannedchars As String = "ºª\1234567890!'¡¿?=)(/&%$·|@#~€¬^`[+*]´¨{}-_.,;:"
    Private _FullName As String
    Private _Password As String
    Private _ID As String
    Public Sub New(ByVal name As String, ByVal pass As String, ByVal id As String)
        _FullName = name
        _Password = pass
        _ID = id
    End Sub
    Public Property FullName As String
        Get
            Return _FullName
        End Get
        Set(ByVal value As String)
            For i = 0 To bannedchars.Count - 1
                If value.Contains(bannedchars(i)) Then
                    _FullName = "Wrong"
                End If
            Next
            _FullName = value
        End Set
    End Property
    Public Property Password As String
        Get
            Return _Password
        End Get
        Set(ByVal value As String)
            _Password = value
        End Set
    End Property
    Public Property ID As String
        Get
            Return _ID
        End Get
        Set(ByVal value As String)
            _ID = value
        End Set
    End Property
    Public Sub New()

    End Sub

End Class
